home *** CD-ROM | disk | FTP | other *** search
/ Enigma Amiga Life 109 / EnigmaAmiga109CD.iso / dalla rivista / netconnect3 / voyager-30 / install_voyager < prev    next >
Text File  |  1999-12-27  |  56KB  |  1,269 lines

  1. ;******************************************************************************
  2. ;         __  __                                     
  3. ;        / / / /                                    
  4. ;       / / / /______ __  __ ______  ______ ______ _____
  5. ;      / / / // __  / \ \/ // __  / / __  // ____// .__/
  6. ;     /  \/ // /_/ /   \  // __  / / /_/ // __/_ / /
  7. ;     \____//_____/    / //_/ /_/ _\__  //_____//_/      NG
  8. ;                     /_/        /_____/   
  9. ;
  10. ; $VER: Voyager_Installer 3.0v (November-17-1999) 
  11. ; Installer by Robert C. Reiswig ©1995,1996,1997,1998,1999
  12. ; Voyager by Oliver Wagner ©1995,1996,1997,1998,1999
  13. ;
  14. ; If you wish to use any part of this installer you must ask. May not be 
  15. ; integrated/placed into any other package. Changes, suggestions or problems:
  16. ; voyager@vgr.com or vgr@best.com
  17. ;******************************************************************************
  18. (set Vkey 0) ; 0=NoKey, 1=LookForKey
  19. (set #Voyager_Archive "v_ng.lha")
  20. (set #Compress "lhex")
  21.  
  22. ;*** System Stuff ***
  23. (set cpu (database "cpu"))  (set vblank (database "vblank"))
  24. (set graphmem (database "graphics-mem")) (set totmem (database "total-mem"))
  25. (set osver (/ (getversion "LIBS:version.library") 65536))
  26. (if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL")))
  27. (set fastmem (- totmem graphmem))
  28.  
  29. (if (= osver 37) (set workbench "2.0")) (if (= osver 38) (set workbench "2.1"))
  30. (if (= osver 39) (set workbench "3.0")) (if (= osver 40) (set workbench "3.1"))
  31. (if (= osver 41) (set workbench "3.5"))
  32.  
  33. (set cpu (database "cpu"))
  34. (if (> (exists ("sys:libs/68060.library")) 0) (set #cpu 5) )
  35. (if (> (exists ("68060.library") (resident)) 0) (set #cpu 5) )
  36. (if (= cpu 68000) (set #cpu 0)) (if (= cpu 68010) (set #cpu 1))
  37. (if (= cpu 68020) (set #cpu 2)) (if (= cpu 68030) (set #cpu 3))
  38. (if (= cpu 68040) (set #cpu 4)) (if (= cpu 68050) (set #cpu 5)) 
  39.  
  40. (set vernum1 (getversion "V")) (set ver1 (/ vernum1 65536))
  41. (set rev1 (- vernum1 (* ver1 65536) ) ) (set Voyagerver (cat ver1 "." rev1))
  42.  
  43. (if (> (exists ("env:Language")) 0) (set lanfound (getenv "Language")) )
  44. (set lan 0)
  45.  
  46. (if (= "english"    lanfound) (set lan 0))  (if (= "deutsch"    lanfound) (set lan 1))
  47. (set #English    "English")  (set #Deutsch    "Deutsch")
  48.  
  49. (set mfound 0) (set newicon1 1) 
  50. (set keeper 1) (set firsttime 0)
  51.  
  52. ;********************************************************************
  53. ; English Strings
  54. ;********************************************************************
  55. (set #about (cat "\n\nWelcome to Voyager " Voyagerver "\n\nCopyright © 1995-1999 by\n\nOliver Wagner\n<owagner@vapor.com>\n\nhttp://www.vapor.com/\nftp://ftp.vapor.com/pub/voyager/") )
  56. (set #installup " Install or Update Voyager")
  57. (set #clearcache " Clear Cache Directory")
  58. (set #task "\nWhat would you like to do?\n")
  59. (set #whereVoyager "Where do you wish to install Voyager. The directory 'Voyager' will be created if it is not there. If a copy of Voyager is found it will be backed up.")
  60. (set muiver "No Version Installed")
  61. (set #newermui "\nVoyager needs version 3.6 or higher of MUI installed to work correctly.\n\nNow would be a good time to Upgrade!\n\nYou can find mui38usr.lha on Aminet in util/libs\n\nIt looks like you have: \n\n")
  62. (set #nomuiarc "\nThe installer could not find the MUI dir in the archive. Because of this the MUI Classes used by VoyagerNG were not installed.\n\n If you are Updating VoyagerNG then this is not a problem. If it is your first time installing VoyagerNG you will need to get an archive with these files.")
  63. (set #nompc "\nThe .MCC files for VoyagerNG can not be installed to 'mui:libs/mui'")
  64. (set #need-os "\n\nVoyager needs version 3.0 or higher of the Amiga OS installed to work correctly.\n\n It looks like you have: \n\n")
  65. (set #000used "\n\nThe 68000 version will be installed.") 
  66. (set #nompc "\nThe .MPC files for Voyager can not be installed to 'mui:libs/mui'")
  67. (set #noreg1 "\nThe installer could not find 'S:Voyager.Key' or '")
  68. (set #noreg2 "' on your system. It also does not seem to be in the archive you are installing Voyager from. You may need to get the archive again.\n\nThe installer will now run the Registration Utility, 'Register-Voyager'.")   
  69. (set #filethere1 "\n\nThe installer has found Voyager version ")
  70. (set #filethere2 " at ")
  71. (set #filethere3 "\n\nThe file will be renamed to ")
  72. (set #filethere4 " and it will then be moved to ")
  73. (set #backuptoXXX "Back-UP to file named 'Voyager.")
  74. (set #copyover "Copy Over Old Version")
  75. (set #oktodelete1 "\nIs it ok to delete the older Voyager binary so that the Voyager Directory can be made?\n")
  76. (set #oktodelete2 "\nIs it ok to delete the older _renamed_ Voyager binary so that the Voyager Directory can be made?\n")
  77. (set #Voyagerfound "\nThe Installer has found a copy of Voyager already installed. What do you want to do?\n")
  78. (set #no030found "\n\nThe 68030+FPU Version of Voyager, V030, was not found in this archive this is why the 68000 version was installed.")
  79. (set #newicon "\nDo you wish to copy over The Voyager Icon from the archive? If you have any ToolTypes already set you should select no.\n")
  80. (set #nonewicon  "No  - ToolTypes already set.")
  81. (set #yesnewicon "Yes - Copy over Icon.")
  82. (set #yesnewicon "Yes - Copy over Icon.")
  83. (set #whatcat "\nSelect the Voyager Language catalog you wish to install.\n")
  84. (set #wherecat "\nWhere do you wish to install the Voyager Language Catalog? Default is ")
  85. (set #catnofind "Can not find this catalog in this Voyager archive. You may need to get a newer archive.")
  86. (set #whattools "\nWhat Tools would you like to install? They will be placed in: ")
  87. (set #updatingmuic "\nUpdating the MUI Classes if needed.\n\n(#?.mcc & #?.mcp)")
  88. (set #nomuiarc "\nThe installer could not find the MUI dir in the archive. Because of this the MUI Classes used by Voyager were not installed.\n\n If you are Updating Voyager then this is not a problem. If it is your first time installing Voyager you will need to get an archive with these files.")
  89. (set #whatdocs "What Voyager documentation would you like to install? (* = Not found in this archive)")
  90. (set #wheredocs "Where would you like the Voyager documentation you selected to be installed?")
  91. (set #byebye (cat "\nVoyager Install Complete!\n\n" ))
  92.  
  93. (set #whereUnpack "Where would you like to Uncompress the VoyagerNG Archive to, so that you may install it from there?")
  94. (set #uncompressingbin (cat "\n\nUncompressing the " #Voyager_Archive " archive.\n\nPlease wait."))
  95. (set #errorbin (cat "\n\nThe " #Voyager_Archive " is missing or has an error in it. You might try to reinstall.  If that does not work you will need to get a new VoyagerNG disk/archive."))
  96. (set #oktoinstall "\nThe VoyagerNG archive has been un-packed. You can now run the installer to complete the install in:\n\n")
  97.  
  98. (set #askcpu "\nWhat CPU does the machine have that you will run Voyager on?\n")
  99. (set #noregdir "\nThe Register-Voyager directory was not found. This means that the archive has been altered or is bad. Please get another copy of the Voyager Archive.\n\nOR\n\nThe Keyfile is missing. Please contact your REG site.")
  100. (set #updatesetpatch "\nThe installer looked for 'c:setpatch' and did not find it or you have a version lower then 40.16. Voyager needs version 40.16 to work correctly. You wany want to upgrade soon. (NOTE: if you keep 'setpatch' in a different place than 'c:' and its 40.16 or higher then this message is void.)")
  101. (set #updateinstaller "\nJust to let you know ESCOM AG has released a new version of the installer program.\n\n\nVersion 43.3 can be found on Aminet in:\n\n/util/misc/Installer-43_3.lha\n\n\nYou might want to upgrade soon, if you can.")
  102. ;can you add provision for Java/Applets and Java/Classes dirs?
  103. (set #nossl "\nNote that the Voyager SSL module must not be used in the USA due to patent law restrictions. Are you living in the USA?\n")
  104. (set #okssl "\n\n\nUS citizens can legaly use the MiamiSSL library which ships with Miami 2.1.\n\nVoyagerNG will use this SSL library if it was installed with Miami 2.1.")
  105. (set #yesc "Yes - In USA")
  106. (set #noc "No - Other Country")
  107.  
  108. (set #wheremp "\nWhere do you wish to install the MimePrefs program?\n")
  109.  
  110. (set #updatedlibs "\nInstall/Update the Vapor Libraries?\n* = Must be installed to work correctly\n(Click 'Help' for more info on the libs.)\n")
  111. (set #lib1 " Update library(*)")
  112. (set #lib2 " Toolkit library (*)")
  113. (set #lib3 " Registration library")
  114. (set #libC " CManager lib [Bookmarks] (*)")
  115. (set #libhelp1 "vapor_update.library:\nIf installed every Vapor app will automagically check for updates by querying the Vapor server via Internet. You will be informed and offered automatic downloading if there is an update.")
  116. (set #libhelp2 "\n\nvapor_toolkit.library:\nContains support functions which are used by most Vapor applications and thus can be shared to reduce individual application code size. ie: Async I/O library, crytographically strong random number generator, math support.")
  117. (set #libhelp3 "\n\nvapor_registration.library:\nContains the core code for the registration utility\n")
  118. (set #libhelpC "\n\nCManager.library:\nThe Contact Manager is a unique product for the Amiga. It's best described as a diary / address book which allows you to store all your contacts' user information, favourite web & ftp sites and IRC server/channels. Voyager uses CManager.library for its 'Bookmarks section'")
  119. (set #wherelibs "Where do you wish to place the Vapor lib(s), 'Libs:' is default.")
  120. (set #flushing "\n\nTrying to flush old Vapor libraries from memory.")
  121.  
  122. (set #insregstuff " Install Register information")
  123. (set #insregstuffno " Don't Install Register information")
  124. (set #installerreg "\nThe installer did not find an AmIRC key in the usual places. Do you wish to install the Register information?\n") 
  125.  
  126. (set #updateplug "\n\n\nInstalling or Updating Plugins")
  127. (set #cpuver "\nWhat version of TextInput would you like to be installed?\n")
  128.  
  129. (set #neednlist1 "\nThe installer could not find:\n")
  130. (set #neednlist2 "\n\nVoyager 3 needs the CManager package to run. The CManager components needed to let voyager run are included in the Voyager archive.\n\nCManager needs to have the NList classes/package installed. You can find the NList package on Aminet in dev/mui. Current file name is: MCC_NList0_89.lha")
  131.  
  132. (set #needpopph1 "\nThe installer could not find:\n")
  133. (set #needpopph2 "\n\nVoyager 3 needs to have the Popup Placeholder classes/package installed. You can find the latest Popup Placeholder classes/package at:\n\nhttp://amiga.com.pl/mcc/\n\nCurrent file name is: CC_Popph.lha")
  134.  
  135. (set #libdiff "\nThe installer found one of the Vapor libraries in 'LIBS:' to be a different version than a resident Vapor library (loaded in memory).")
  136. (set #rebootnote1 "\n\nNOTE: If you currently have a Vapor program running now it might have one of the Vapor libraries open. This may prevent the next Vapor application, that may need a newer library from this archive, from working. The installer has already tried to flush the old libraries. If this did not work you may need to reboot.")
  137. (set #rebootnote  "\n\nNOTE: It is strongly recommended that you reboot, after the installer is finished, to ensure that all updated libraries have been flushed. The libraries may be held open by VaporWare applications or MUI custom classes which are currently running.")
  138.  
  139. (set #badcm1 "\nNOTE: There seems to be an error in your 'CManager_path' setting file. CManager needs to have the ENV:Vapor/CManager_path set up and pointing to a directory that exist and it needs to end with '/CManager', the installer has found this to not be the case. This is where CManager stores its database for Voyager. Currently it is set to:\n\n")
  140. (set #badcm2 "\n\n** DO NOT SET THIS TO 'RAM:' **")
  141.  
  142. (set #whereCMan "Where do you wish to set the 'CManager_path' to. Please select the *real* directory on your HD, where you keep Voyager, so the ENV will be set correctly for CManager/Voyager.") 
  143.  
  144. ;********************************************************************
  145. ; German Strings
  146. ;********************************************************************
  147. (if (= lan 1) (set OlliShareSomePizza TRUE_But_From_Long_Ago) )
  148.  
  149. ;********************************************************************
  150. ; Check for LHA voyager.. if there unpack then install. Oh the floppy
  151. ;********************************************************************
  152. (if (= 1 (exists #Voyager_Archive) )
  153.  (
  154.    (welcome)
  155.    (set VoyagerUdir  (askdir (prompt #whereUnpack)
  156.                         (help   #whereUnpack)
  157.                          (default "Ram:")
  158.                     )  
  159.    )
  160.  
  161.    (working (cat #uncompressingbin ""))
  162.    (set ToDo  ("%s \"-qfw=%s\" x %s %s" #Compress VoyagerUdir #Voyager_Archive)) 
  163.    (set error (run ToDo))
  164.    (if (> error 0) (message #errorbin))
  165.   
  166.    (if (exists "Voyager.KEY")
  167.     (copyfiles (source "Voyager.key") (dest (tackon VoyagerUdir "Voyager-30-Prerelease1")) (optional "nofail") ) 
  168.    )
  169.  
  170.    (set @default-dest VoyagerUdir)
  171.    ;(run (cat "run Installer \"" (tackon VoyagerUdir "Voyager-30-Prerelease1/Install_Voyager") "\" APPNAME \"Voyager3-Installer\" MINUSER AVERAGE DEFUSER AVERAGE LOGFILE RAM:Voyager3-Install.LOG") ) 
  172.    (exit (cat #oktoinstall (tackon VoyagerUdir "Voyager-30-Prerelease1/Install_Voyager")) (quiet))
  173.  )
  174.  
  175. )
  176.  
  177. ;********************************************************************
  178. ; Check on New installer 
  179. ;********************************************************************
  180. (set InstallerVer 0)
  181. (set vernum1 @installer-version) (set ver1 (/ vernum1 65536)) 
  182. (set rev1 (- vernum1 (* ver1 65536) ) ) (set InstallerVer (cat ver1 "." rev1))
  183. (set current_installer "43.3")
  184. (if (< InstallerVer current_installer) (message #updateinstaller) )
  185.  
  186. ;********************************************************************
  187. ; Check on Setpatch 
  188. ;********************************************************************
  189. (set vernum1 (getversion "c:setpatch")) (set ver1 (/ vernum1 65536)) 
  190. (set rev1 (- vernum1 (* ver1 65536) ) ) (set setpatchver (cat ver1 "." rev1))
  191. (set current_setpatch "40.16")
  192. (if (< setpatchVer current_setpatch) (message #updatesetpatch) )
  193.  
  194. ;********************************************************************
  195. ; Hello
  196. ;********************************************************************
  197. (message #about)
  198.  
  199.  ;*** For Olli
  200.  ;(message "\n\n\nThe Voyager 3 pre-release requires a keyfile.\n\nVoyager.KEY, Voyager-3.KEY and NetConnect.library will work.")
  201.  
  202. (welcome) 
  203.  
  204. ;********************************************************************
  205. ; Checks for MUI & OS versions
  206. ;********************************************************************
  207. (set ver 0)
  208. (if (<> (getassign "mui") "")
  209.  (
  210.   (if (exists "mui:mui")       (set vernum (getversion "mui:mui"))  )
  211.   (if (exists "sys:prefs/mui") (set vernum (getversion "sys:prefs/mui")) )
  212.   (set ver (/ vernum 65536)) (set rev (- vernum (* ver 65536) ) )
  213.  )
  214. )
  215.  
  216. (if (= ver 7)  (set muiver "2.0") )  (if (= ver 8)  (set muiver "2.1") )
  217. (if (= ver 9)  (set muiver "2.2") )  (if (= ver 10) (set muiver "2.3") )
  218. (if (= ver 11) (set muiver "3.0") )  (if (= ver 12) (set muiver "3.1") )
  219. (if (= ver 13) (set muiver "3.2") )  (if (= ver 14) (set muiver "3.3") )
  220. (if (= ver 15) (set muiver "3.4") )  (if (= ver 16) (set muiver "3.5") )
  221. (if (= ver 17) (set muiver "3.6") )  (if (= ver 18) (set muiver "3.7") )
  222. (if (= ver 19) (set muiver "3.8") )  (if (= ver 20) (set muiver "3.9") )
  223. (if (= ver 21) (set muiver "4.0") )  (if (= ver 22) (set muiver "4.1") )
  224.  
  225. (if (< ver 17)   ( (message (cat #newermui muiver))   (set cpuPick 0) ))
  226. (if (< osver 39) ( (message (cat #need-os workbench)) (set cpuPick 0) ))
  227.  
  228. ;********************************************************************
  229. ; Double Check on the CPU
  230. ;********************************************************************
  231. (set cpuPick (askchoice (choices "68000" "68010" "68020" "68030"
  232.                          "68040" "68060"
  233.                 )
  234.              (prompt #askcpu)
  235.                      (help   #askcpu)
  236.                    (default #cpu)
  237.       )
  238. )
  239.  
  240.  
  241. ;********************************************************************
  242. ; check for Register-Voyager
  243. ;********************************************************************
  244. ;(if (OR (exists "Register-Voyager") (exists "Voyager.KEY"))
  245. ; (set tempz 0) (abort #noregdir)
  246. ;)
  247.  
  248. ;********************************************************************
  249. ; Check Last ENV
  250. ;********************************************************************
  251. (if (> (exists "env:Vapor/Voyager_LASTUSEDDIR") 0) 
  252.  (
  253.   (set lastdir (getenv "Vapor/Voyager_LASTUSEDDIR"))
  254.   (set lastdirlen (strlen lastdir))
  255.   (set tricklen (+ 1 (strlen (fileonly lastdir))))
  256.   (set lastdir (substr lastdir 0 (- lastdirlen tricklen) ) )
  257.   (if (= 0 (exists lastdir (noreq))) (set lastdir (cat lastdir ":"))) 
  258.  )
  259.  (set lastdir 0)
  260. )
  261.  
  262.  
  263. ;********************************************************************
  264. ; Ask where to put Voyager & Make dir if needed
  265. ;********************************************************************
  266. (set Package (getassign "AmiTCP"))
  267. (if (= Package "") (set Package (getassign "Inet")) )
  268. (if (<> lastdir 0) (set Package lastdir))
  269.  
  270. (set Voyagerdir  (askdir (prompt #whereVoyager)
  271.                 (help   #whereVoyager)
  272.                      (default Package)
  273.                )  
  274. )
  275.  
  276. (set where Voyagerdir)
  277.  
  278. ;********************************************************************
  279. ; Check for Key file
  280. ;********************************************************************
  281. ;(if (AND (= Vkey 1) (OR (= (exists "Voyager.Key") 0) (OR (= (exists "S:Voyager.Key") 0)  (= (exists (tackon where "Voyager.Key")) 0) ) ) )
  282. ; (
  283. ;  (message (cat #noreg1 (tackon where "Voyager/Voyager.Key") #noreg2))
  284. ;  (run (cat "run Register-Voyager") )
  285. ;  ;;** (exit (quiet))
  286. ; )
  287. ;) 
  288.  
  289. ;********************************************************************
  290. ; Check to see if Voyager is already there, if so ask to backup
  291. ;********************************************************************
  292. (if (= 1 (exists (tackon where "V") ) ) 
  293.   (
  294.     (set vernum1 (getversion (tackon where "V") ))
  295.     (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  296.     (set Voyager_old (cat ver1 "." rev1))
  297.  
  298.     (message (cat #filethere1 ver1 "." rev1 #filethere2 where #filethere3 
  299.                   (cat "V" Voyager_old) #filethere4 (tackon Voyagerdir "V") )
  300.     )
  301.  
  302.     (copyfiles (source (tackon where "V"))
  303.                (dest where) 
  304.                (infos)
  305.                (newname (cat "V." Voyager_old))
  306.     )
  307.     
  308.     (delete (tackon Voyagerdir "V") (prompt #oktodelete1) (help #oktodelete1) (confirm) (infos)) 
  309.  
  310.     (if (< (exists (tackon Voyagerdir "V")) 2) (makedir (tackon Voyagerdir "V") (infos)) )    
  311.  
  312.     (copyfiles (source (tackon where (cat "V." Voyager_old) ))
  313.                        (dest (tackon Voyagerdir "V")) 
  314.                        (infos)
  315.                
  316.     )
  317.  
  318.     (delete (tackon where (cat "V" Voyager_old)) (prompt #oktodelete2) (help #oktodelete2) (confirm) (infos) ) 
  319.  
  320.     ;(set firsttime 1)
  321.  
  322.   )
  323. )
  324.  
  325. (if (< (exists (tackon Voyagerdir "Voyager")) 2) (makedir (tackon Voyagerdir "Voyager")) )
  326.  
  327. ;********************************************************************
  328. ; copy rooticon if there
  329. ;********************************************************************
  330. (set pathI @icon)  (set pathIlen (strlen pathI))
  331. (set Inamelen (fileonly @icon))
  332. (set Inamelen (+ (strlen Inamelen) 1) )
  333. (set pathI (substr pathI 0 (- pathIlen Inamelen) ) )
  334.  
  335. (if (= (exists (tackon where "Voyager.info")) 0)
  336.  (if (exists (cat pathI ".info"))
  337.   (copyfiles (source (cat pathI ".info")) (dest (tackon "/" where)) (newname "Voyager.info") (optional "nofail") ) 
  338.  )
  339. )
  340.  
  341. (set where (tackon Voyagerdir "Voyager"))
  342. (set @default-dest where)
  343.  
  344. ;********************************************************************
  345. ; Check for old & backup
  346. ;********************************************************************
  347. (if (exists (tackon where "V")) 
  348.   (
  349.       (set vernum1 (getversion (tackon where "V") ))
  350.       (set ver1 (/ vernum1 65536)) (set rev1 (- vernum1 (* ver1 65536) ) )
  351.       (set Voyager_old (cat ver1 "." rev1))
  352.  
  353.       (set keeper  (askchoice (choices  (cat #backuptoXXX Voyager_old "'")  #copyover)
  354.                      (prompt #Voyagerfound)
  355.                  (help   #Voyagerfound)
  356.                      (default 0)
  357.                )
  358.       )    
  359.  
  360.       (if (= keeper 0)
  361.          (copyfiles (source (tackon where "V"))
  362.                      (dest where) 
  363.                      (infos)
  364.                      (newname (cat "V" Voyager_old))
  365.          )
  366.       )          
  367.  
  368.       (set firsttime 1)
  369.   )
  370. )
  371.  
  372. ;********************************************************************
  373. ; Copy over correct Voyager and Icon if wanted
  374. ;********************************************************************
  375. ;(set gcpu 0)
  376. ;(if (AND (> #cpu 1) (exists ("V030")) ) (set gcpu 1) ) 
  377.  
  378. ;(if (exists "V030") (set v030there "") (set v030there " (N/A in this Archive)") ) 
  379.  
  380. ;(set cpuPick (askchoice (choices "68000" (cat "68030+FPU" v030there) )
  381. ;             (prompt #askcpu)
  382. ;                     (help   #askcpu)
  383. ;                   (default gcpu)
  384. ;      )
  385. ;)
  386.  
  387. ;(if (AND (= cpuPick 1) (exists ("V030")) )
  388. ; (copyfiles (source "V030") (dest where) (newname "V") (optional "nofail") )
  389. ; (copyfiles (source "V") (dest where) (optional "nofail") )
  390. ;)
  391.  
  392.  
  393. (set #need000archive1 "\n(or you selected 68000 or 68010 as your CPU)\nAs of Voyager V3 Prerelease 4 the main archive will only have a version of the binary for OS3.0 or OS3.1 and needs to have a 68020 CPU or higher. You can get the 68000 archive (if available) at the following addresses:\n\nhttp://v3.vapor.com/\nftp://ftp.vapor.com/pub/voyager/")
  394. (set #need000archive2 "\n\nPress 'Proceed' and the installer will updated the other parts needed to run Voyager")
  395. (set #need000archiveA "The installer found AmigaOS: ")
  396. (set #need000archiveB " & CPU: ") 
  397.  
  398. (set voyagercpu "")
  399.  
  400. (if (OR (< cpuPick 2) (< osver 39))
  401.  (message (cat #need000archiveA workbench #need000archiveB cpu #need000archive1 #need000archive2))
  402.  
  403.  (copyfiles (source (cat "V" voyagercpu)) (dest where) (optional "nofail") )
  404. )
  405.  
  406.  
  407. ;;;(copyfiles (source "V") (dest where) (optional "nofail") )
  408.  
  409. ;(if (AND (> #cpu 1) (= (exists ("V030")) 0) )
  410. ; (message #no030found)
  411. ;)
  412.  
  413. (if (= firsttime 0)  (copyfiles (source "V.info") (dest where) (optional "nofail") ) )
  414.  
  415. (if (OR (= keeper 0) (= (exists (tackon where "V.info")) 0))
  416.   (
  417.    (set newicon (askchoice (choices #yesnewicon #nonewicon)
  418.                            (prompt #newicon)
  419.                        (help   #newicon)
  420.                            (default 0)
  421.             )
  422.    )
  423.   
  424.    (if (= newicon 0) 
  425.      (copyfiles (source "V.info") (dest where)  (optional "nofail") )
  426.    )
  427.   )
  428. )
  429.  
  430.  
  431. ;********************************************************************
  432. ; Copy over Other stuff
  433. ;********************************************************************
  434. ;*** Copy Key 
  435. (if (> (exists "Voyager.KEY") 0)
  436.  (copyfiles (source "Voyager.KEY") (dest where) (infos) (optional "nofail") ) 
  437. )
  438.  
  439. (if (= (exists (tackon where "TransferAnim")) 0)
  440.   (if (exists "TransferAnim")
  441.    (copyfiles (source "TransferAnim") (dest where) (optional "nofail") ) 
  442.   )
  443. )
  444.  
  445. (if (= (exists (tackon where "TransferAnim.info")) 0)
  446.  (if (exists "TransferAnim.info")
  447.   (copyfiles (source "TransferAnim.info") (dest where) (optional "nofail") ) 
  448.  )
  449. )
  450.  
  451.  
  452. (makedir (tackon where "Cache"))
  453. (if (> (exists "CacheBrowser") 0)
  454.  (copylib (source "CacheBrowser") (dest where) (infos) (optional "nofail") ) 
  455. )
  456.  
  457. ;********************************************************************
  458. ; Copy MimePrefs
  459. ;********************************************************************
  460. (if (exists "MimePrefs")  
  461.  (
  462.   (if (exists "sys:prefs/MimePrefs" (noreq)) (set mpguess 1) (set mpguess 0))
  463.  
  464.   (set wheremp  (askchoice (choices where "SYS:Prefs")
  465.                            (prompt (cat #wheremp "\n"))
  466.                       (help   #wheremp)
  467.                         (default mpguess)
  468.                 )  
  469.   )
  470.  
  471.   (if (= wheremp 0) (set destmp where) (set destmp "SYS:Prefs"))
  472.  
  473.   (if (= (exists (tackon destmp "MimePrefs.info")) 0)  
  474.    (copylib (source "MimePrefs") (dest destmp) (infos) (optional "nofail") ) 
  475.    (copylib (source "MimePrefs") (dest destmp) (optional "nofail") ) 
  476.   )
  477.  
  478.  )
  479. )
  480.  
  481. ;******************************************************************************** 
  482. ; Copy over Plugins stuff
  483. ;********************************************************************************
  484. (set #askimageP1 "What version of the Image Decoder would you like to install (or update)? The average size for a Image Decoder plugin is about: ")
  485. (set #askimageP2 "Total for all ")
  486. (set #askimageP3 " *=Not found in archive.")
  487. (set #askflashP1 "What version of the VFlash plugin would you like to install (or update)? The average size for a VFlash plugin is about ")
  488. (set #askflashP2 "Total for all ")
  489. (set #askflashP3 " *=Not found in archive.")
  490. (set #flashno000 "\n\nNOTE\n~~~~~~~~~~~~~~~~~~~~~~~~~~~\nThe VFlash plugin needs to be installed on an Amiga with at least a 68020 CPU. The installer did not find this. You can install the VFlash plugin but it will not work on 68000 and 68010 based Amigas.")
  491. (set #imageno000 "\n\nNOTE\n~~~~~~~~~~~~~~~~~~~~~~~~~~~\nThe Image plugin needs to be installed on an Amiga with at least a 68020 CPU. The installer did not find this. You can install the Image plugin but it will not work on 68000 and 68010 based Amigas.")
  492. (set #noppclib   "\n\nNOTE\n~~~~~~~~~~~~~~~~~~~~~~~~~~~\nYou selected a PPC plugin that needs PowerUp installed. The installer did not find 'libs:ppc.library' or the library resident. The installer will install the _ppc version of the plugin, if it is in the archive, but without a PPC (with PowerUp) it will not work and you may need to install a different version of the plugin if you did not select another version also.")
  493. (set #noplugfound "\n\nNOTE\n~~~~~~~~~~~~~~~~~~~~~~~~~~~\nThe Plugin you selected was not found it this archive. You will need to install a different version.\n\nPlugin not found:\n")
  494.  
  495.  
  496. (if (> (exists "Plugins") 0)
  497.  (
  498.  
  499.   (if (< (exists (tackon where "Plugins")) 2) (makedir (tackon where "Plugins") (infos)) )    
  500.   (if (exists "Plugins.info")
  501.    (copyfiles (source "Plugins.info") (dest where) (optional "nofail") ) 
  502.   )
  503.  
  504.   (if (= cpuPick 0) (set defvimgd 0)) (if (= cpuPick 1) (set defvimgd 0)) 
  505.   (if (= cpuPick 2) (set defvimgd 1)) (if (= cpuPick 3) (set defvimgd 2)) 
  506.   (if (= cpuPick 4) (set defvimgd 4)) (if (= cpuPick 5) (set defvimgd 8)) 
  507.   (if (AND (exists "libs:ppc.library")  (exists "Plugins/vimgdecode_ppc.vlib")) (set defvimgd 16))
  508.   (if (AND (exists "ppc.library" (resident)) (exists "Plugins/vimgdecode_ppc.vlib")) (set defvimgd 16))
  509.  
  510.  ;***** Image Decoder Plugin  ******************************
  511.  (if (> (exists "Plugins/vimgdecode_68020.vlib") 0)
  512.  (
  513.   (if (< cpuPick 2) (message #imageno000)) 
  514.  
  515.   (set size 0) (set totalplug 0)
  516.   (foreach "Plugins" "vimgdecode#?"  (set size (+ size (getsize (tackon "Plugins" @each-name)))) (set totalplug (+ totalplug 1)) )
  517.   (set sizek-vimg (/ size 1024))
  518.  
  519.   (if (exists "Plugins/vimgdecode_68020.vlib")    (set vimgd020 "") (set vimgd020 " (*)") ) 
  520.   (if (exists "Plugins/vimgdecode_68030fpu.vlib") (set vimgd030 "") (set vimgd030 " (*)") ) 
  521.   (if (exists "Plugins/vimgdecode_68040fpu.vlib") (set vimgd040 "") (set vimgd040 " (*)") ) 
  522.   (if (exists "Plugins/vimgdecode_68060.vlib")    (set vimgd060 "") (set vimgd060 " (*)") ) 
  523.   (if (exists "Plugins/vimgdecode_ppc.vlib")      (set vimgdppc "") (set vimgdppc " (*)") ) 
  524.  
  525.   (set cpuPickI (askoptions (choices (cat " 68020" vimgd020) (cat " 68030+FPU" vimgd030) 
  526.                                      (cat " 68040+FPU" vimgd040) (cat " 68060" vimgd060)
  527.                                      (cat " PPC (PowerUp)" vimgdppc)
  528.                             ) 
  529.                   (prompt (cat #askimageP1 (/ sizek-vimg totalplug) "K. " #askimageP2 sizek-vimg "K." #askimageP3) )
  530.                       (help   (cat #askimageP1 (/ sizek-vimg totalplug) "K. " #askimageP2 sizek-vimg "K." #askimageP3) )
  531.                     (default defvimgd)
  532.             )
  533.   )
  534.  
  535.   (working #updateplug)
  536.  
  537.   (procedure updatevimg_plug
  538.     (if (exists (tackon "Plugins" (cat "vimgdecode_" imageplugin ".vlib")) )
  539.        (copylib (source (tackon "Plugins" (cat "vimgdecode_" imageplugin ".vlib"))) (dest (tackon where "Plugins")) (optional "nofail") ) 
  540.     )
  541.   )
  542.  
  543.   (set PPCthere 0)
  544.    (if (exists "libs:ppc.library") (set PPClibthere 1)  )
  545.    (if (exists "ppc.library" (resident)) (set PPClibthere 1) )
  546.   (if (AND (= PPClibthere 0) (IN cpuPickI 4)) (message #noppclib)) 
  547.   
  548.   (if (IN cpuPickI 0) ((set imageplugin "68020")    (updatevimg_plug)) ) 
  549.   (if (IN cpuPickI 1) ((set imageplugin "68030fpu") (updatevimg_plug)) )
  550.   (if (IN cpuPickI 2) ((set imageplugin "68040fpu") (updatevimg_plug)) )
  551.   (if (IN cpuPickI 3) ((set imageplugin "68060")    (updatevimg_plug)) )
  552.   (if (IN cpuPickI 4) ((set imageplugin "PPC")      (updatevimg_plug)) )
  553.  
  554.  )
  555.  )
  556.  
  557.  ;*********** Recheck CPU/PPC and file
  558.   (if (= cpuPick 0) (set defvimgd 0)) (if (= cpuPick 1) (set defvimgd 0)) 
  559.   (if (= cpuPick 2) (set defvimgd 1)) (if (= cpuPick 3) (set defvimgd 2)) 
  560.   (if (= cpuPick 4) (set defvimgd 4)) (if (= cpuPick 5) (set defvimgd 8)) 
  561.   (if (AND (exists "libs:ppc.library")  (exists "Plugins/VFlash_ppc.module")) (set defvimgd 16))
  562.   (if (AND (exists "ppc.library" (resident)) (exists "Plugins/VFlash_ppc.module")) (set defvimgd 16))
  563.  
  564.  
  565.  ;***** VFlash Plugin ******************************
  566.  (if (> (exists "Plugins/VFlash.VPlug") 0)
  567.  (
  568.     (if (< cpuPick 2) (message #flashno000)) 
  569.   
  570.     (set size 0) (set totalplug 0)
  571.     (foreach "Plugins" "VFlash_#?"  (set size (+ size (getsize (tackon "Plugins" @each-name)))) (set totalplug (+ totalplug 1)) )
  572.     (set sizek-vflash (/ size 1024))
  573.  
  574.     ;(if (exists "libs:ppc.library") (set #cpuguess 5))
  575.     ;(if (exists "ppc.library" (resident)) (set #cpuguess 5))
  576.    
  577.     (if (exists "Plugins/VFlash_68020.module")    (set vflash020 "") (set vflash020 " (*)") ) 
  578.     (if (exists "Plugins/VFlash_68030fpu.module") (set vflash030 "") (set vflash030 " (*)") ) 
  579.     (if (exists "Plugins/VFlash_68040fpu.module") (set vflash040 "") (set vflash040 " (*)") ) 
  580.     (if (exists "Plugins/VFlash_68060.module")    (set vflash060 "") (set vflash060 " (*)") ) 
  581.     (if (exists "Plugins/VFlash_ppc.module")      (set vflashppc "") (set vflashppc " (*)") ) 
  582.  
  583.  
  584.     (set cpuPickI (askoptions (choices (cat " 68020" vflash020) (cat " 68030+FPU" vflash030) 
  585.                                       (cat " 68040+FPU" vflash040) (cat " 68060" vflash060)
  586.                                       (cat " PPC (PowerUp)" vflashppc)
  587.                              ) 
  588.                        (prompt (cat #askflashP1 (/ sizek-vflash totalplug) "K. " #askflashP2 sizek-vflash "K." #askflashP3) )
  589.                               (help   (cat #askflashP1 (/ sizek-vflash totalplug) "K. " #askflashP2 sizek-vflash "K." #askflashP3) )
  590.                                 (default defvimgd)
  591.               )
  592.     )
  593.  
  594.     (working #updateplug)
  595.  
  596.     (procedure updateflash_plug
  597.       (if (exists (tackon "Plugins" (cat "VFlash_" flashplugin ".module")) )
  598.          (copylib (source (tackon "Plugins" (cat "VFlash_" flashplugin ".module"))) (dest (tackon where "Plugins")) (optional "nofail") ) 
  599.       )
  600.     )
  601.  
  602.     (set PPCthere 0)
  603.      (if (exists "libs:ppc.library") (set PPClibthere 1)  )
  604.      (if (exists "ppc.library" (resident)) (set PPClibthere 1) )
  605.     (if (AND (= PPClibthere 0) (IN cpuPickI 4)) (message #noppclib)) 
  606.   
  607.     (if (IN cpuPickI 0) ((set flashplugin "68020")    (updateflash_plug)) ) 
  608.     (if (IN cpuPickI 1) ((set flashplugin "68030fpu") (updateflash_plug)) )
  609.     (if (IN cpuPickI 2) ((set flashplugin "68040fpu") (updateflash_plug)) )
  610.     (if (IN cpuPickI 3) ((set flashplugin "68060")    (updateflash_plug)) )
  611.     (if (IN cpuPickI 4) ((set flashplugin "PPC")      (updateflash_plug)) )
  612.  
  613.     (copylib (source (tackon "Plugins" "VFlash.VPlug")) (dest (tackon where "Plugins")) (optional "nofail") ) 
  614.  )
  615.  )
  616.  
  617.  
  618.  ;***** ssl Plugin ******************************
  619.   ;(set USA (askchoice (choices #yesc  #noc)
  620.   ;                  (prompt #nossl)
  621.   ;                  (help #nossl)
  622.   ;                     (default 1)
  623.   ;       )
  624.   ;)
  625.  
  626.   ;(if (= USA 0) ; 0=InUSA
  627.   ; (message #okssl)
  628.   ; (copylib (source (tackon "Plugins" "voyager_ssl.vlib")) (dest (tackon where "Plugins")) (optional "nofail") ) 
  629.   ;)
  630.  
  631.  ;***** About & Search Plugin ******************************
  632.   (copylib (source (tackon "Plugins" "voyager_about.vlib")) (dest (tackon where "Plugins")) (optional "nofail") ) 
  633.   (copylib (source (tackon "Plugins" "Search.VPlug")) (dest (tackon where "Plugins")) (optional "nofail") ) 
  634.   (copylib (source (tackon "Plugins" "voyager_ssl.vlib")) (dest (tackon where "Plugins")) (optional "nofail") ) 
  635.  
  636.  
  637.  )
  638. )
  639.  
  640. ;******************************************************************************** 
  641. ; Copy over Buttons if wanted
  642. ;********************************************************************************
  643. (set #but1 " Devo's (Default Set Used)")
  644. (set #but2 " Brad's Buttons")
  645. (set #but3 " Loony's Buttons")
  646. (set #installbut "What Button set(s) do you wish to install? If you have created your own or don't wish to use graphics for buttons you should deselect the options below.")
  647.  
  648. (if (> (exists "buttons") 0)
  649.  (
  650.   
  651.   (set defbut 7)
  652.      (if (exists "buttons/Devo")
  653.       (
  654.        (set size 0)
  655.        (foreach "buttons/Devo" "#?"  (set size (+ size (getsize (tackon "buttons/Devo" @each-name)))) )
  656.        (set sizek-devo (/ size 1024))
  657.       )
  658.       ( (set defbut (- defbut 1))  (set sizek-devo "(N/A) 0") )
  659.      )
  660.  
  661.      (if (exists "buttons/Brad")
  662.       (
  663.        (set size 0)
  664.        (foreach "buttons/Brad" "#?"  (set size (+ size (getsize (tackon "buttons/Brad" @each-name)))) )
  665.        (set sizek-brad (/ size 1024))
  666.       )
  667.       ( (set defbut (- defbut 2))  (set sizek-brad "(N/A) 0") )
  668.      )
  669.  
  670.      (if (exists "buttons/Loony")
  671.       (
  672.        (set size 0)
  673.        (foreach "buttons/Loony" "#?"  (set size (+ size (getsize (tackon "buttons/Loony" @each-name)))) )
  674.        (set sizek-loon (/ size 1024)) 
  675.       )
  676.       ( (set defbut (- defbut 4))  (set sizek-loon "(N/A) 0") )
  677.      )
  678.  
  679.   (set butPick (askoptions (choices (cat #but1 " [" sizek-devo "K]")  (cat #but2 " [" sizek-brad "K]") (cat #but3 " [" sizek-loon "K]") )
  680.               (prompt #installbut)
  681.                       (help   #installbut)
  682.                     (default defbut)
  683.            )
  684.   )
  685.  
  686.   (if (<> butPick 0)
  687.    (
  688.      (if (< (exists (tackon where "buttons")) 2) (makedir (tackon where "buttons") (infos)) )    
  689.      (if (exists "buttons.info")
  690.        (copyfiles (source "buttons.info") (dest where) (optional "nofail") ) 
  691.      )
  692.  
  693.      (if (IN butPick 0)
  694.       (
  695.        (if (< (exists (tackon where "buttons/Devo")) 2) (makedir (tackon where "buttons/Devo") ) )    
  696.        (foreach "buttons/Devo" "#?"
  697.         (copyfiles (source (tackon "buttons/Devo" @each-name)) (dest (tackon where "buttons/Devo")) (optional "nofail") ) 
  698.        )
  699.       )
  700.      )
  701.  
  702.      (if (IN butPick 1)
  703.       (
  704.        (if (< (exists (tackon where "buttons/Brad")) 2) (makedir (tackon where "buttons/Brad") ) )    
  705.        (foreach "buttons/Brad" "#?"
  706.         (copyfiles (source (tackon "buttons/Brad" @each-name)) (dest (tackon where "buttons/Brad")) (optional "nofail") ) 
  707.        )
  708.       )
  709.      )
  710.  
  711.      (if (IN butPick 2)
  712.       (
  713.        (if (< (exists (tackon where "buttons/Loony")) 2) (makedir (tackon where "buttons/Loony") ) )    
  714.        (foreach "buttons/Loony" "#?"
  715.         (copyfiles (source (tackon "buttons/Loony" @each-name)) (dest (tackon where "buttons/Loony")) (optional "nofail") ) 
  716.        )
  717.       )
  718.      )
  719.  
  720.    )
  721.   )
  722.  
  723.  )
  724. )
  725.  
  726. ;******************************************************************************** 
  727. ; Copy over rexx stuff
  728. ;********************************************************************************
  729. (if (> (exists "rexx") 0) 
  730. (
  731.  (if (< (exists (tackon where "rexx")) 2) (makedir (tackon where "rexx") (infos)) )    
  732.  (if (exists "Rexx.info")
  733.   (copyfiles (source "Rexx.info") (dest where) (optional "nofail") ) 
  734.  )
  735.  
  736.  (if (> (exists "rexx") 0)
  737.    (foreach "rexx" "#?"
  738.       (copylib (source (tackon "rexx" @each-name)) (dest (tackon where "rexx")) (optional "nofail") ) 
  739.    )
  740.  )
  741. )
  742. )
  743.  
  744. ;******************************************************************************** 
  745. ; Copy over Certificates stuff
  746. ;********************************************************************************
  747. (if (> (exists "Certificates") 0) 
  748. (
  749.  
  750.  (if (< (exists (tackon where "Certificates")) 2) (makedir (tackon where "Certificates") (infos)) )    
  751.  (if (exists "Certificates.info")
  752.   (copyfiles (source "Certificates.info") (dest where) (optional "nofail") ) 
  753.  )
  754.  
  755.  (foreach "Certificates" "#?"
  756.     (copyfiles (source (tackon "Certificates" @each-name)) (dest (tackon where "Certificates")) (optional "nofail") ) 
  757.  )
  758.  
  759. )
  760. )
  761.  
  762. ;******************************************************************************** 
  763. ; Copy over Submissions stuff
  764. ;********************************************************************************
  765. (if (> (exists "Submissions") 0) 
  766.  (
  767.   (if (< (exists (tackon where "Submissions")) 2) (makedir (tackon where "Submissions") (infos)) )    
  768.   (if (exists "Submissions.info")
  769.    (copyfiles (source "Submissions.info") (dest where) (optional "nofail") ) 
  770.   )
  771.  
  772.   (if (> (exists "Submissions") 0)
  773.     (foreach "Submissions" "#?"
  774.        (copylib (source (tackon "Submissions" @each-name)) (dest (tackon where "Submissions")) (optional "nofail") ) 
  775.     )
  776.   )
  777.  
  778.  )
  779. )
  780.  
  781. ;********************************************************************
  782. ; Copy over DOCS (home.html and Vpics dir) & Other Docs
  783. ;********************************************************************
  784. (set defdocs 63)
  785. (if (exists "Voyager_home") (set html_found "") ( (set html_found " (*)") (set defdocs (- defdocs 1)) ) ) 
  786. (if (exists "V.readme")     (set readme_found "") ( (set readme_found " (*)") (set defdocs (- defdocs 2)) ) ) 
  787. (if (exists "Docs/Readme.mui") (set muidoc_found "") ( (set muidoc_found " (*)") (set defdocs (- defdocs 4)) ) ) 
  788. (if (exists "Docs/Readme.TearOff") (set tear_found "") ( (set tear_found " (*)") (set defdocs (- defdocs 8)) ) ) 
  789. (if (exists "Docs/VFlash.readme") (set flash_found "") ( (set flash_found " (*)") (set defdocs (- defdocs 16)) ) ) 
  790. (if (exists "Docs/VFlash_ppc.readme") (set flashppc_found "") ( (set flashppc_found " (*)") (set defdocs (- defdocs 32)) ) ) 
  791.  
  792.  
  793. (set docs (askoptions (choices (cat " Docs In HTML format" html_found) 
  794.                                (cat " V.readme" readme_found)
  795.                                (cat " ReadMe.mui" muidoc_found)
  796.                                (cat " ReadMe.TearOff" tear_found)
  797.                                (cat " VFlash.readme" flash_found)
  798.                                (cat " VFlash_ppc.readme" flashppc_found)
  799.                       ) 
  800.  
  801.               (prompt #whatdocs) 
  802.                       (help #whatdocs)
  803.                   (default defdocs)
  804.       )
  805. )
  806.  
  807. (if (<> docs 0)
  808.  (
  809.    ;(set docsdir (askdir (prompt (cat #wheredocs " (V.readme)" )) ; & V.history
  810.    ;                (help   (cat #wheredocs " (V.readme)" )) ; & V.history
  811.    ;                   (default where)
  812.    ;             )  
  813.    ;)
  814.  
  815.    (set docsdir where)  
  816.  
  817.    (if (IN docs 0)
  818.     (
  819.       (if (< (exists (tackon where "Voyager_home")) 2) (makedir (tackon where "Voyager_home") (infos)) )    
  820.       (if (< (exists (tackon where "Voyager_home/images")) 2) (makedir (tackon where "Voyager_home/images") (infos)) )    
  821.       (if (exists "Voyager_home.info")
  822.         (copyfiles (source "Voyager_home.info") (dest where) (optional "nofail") ) 
  823.       )
  824.  
  825.       (if (exists "Voyager_home")
  826.         (foreach "Voyager_home" "#?.html"
  827.            (copyfiles (source (tackon "Voyager_home" @each-name)) (dest (tackon where "Voyager_home")) (optional "nofail") ) 
  828.         )
  829.       )
  830.  
  831.       (if (exists "Voyager_home/images")
  832.         (foreach "Voyager_home/images" "#?.gif"
  833.           (copyfiles (source (tackon "Voyager_home/images" @each-name)) (dest (tackon where "Voyager_home/images")) (optional "nofail") ) 
  834.         )
  835.       )
  836.     )
  837.    )
  838.  
  839.    (if (IN docs 1) (copyfiles (source "V.readme") (dest docsdir) (infos) (optional "nofail") ) )
  840.  
  841.      (set docsdirneeded 0)                  (if (IN docs 2) (set docsdirneeded 1))   
  842.      (if (IN docs 3) (set docsdirneeded 1)) (if (IN docs 4) (set docsdirneeded 1))
  843.      (if (IN docs 5) (set docsdirneeded 1))
  844.  
  845.      (if (= docsdirneeded 1)
  846.       (    
  847.        (if (< (exists (tackon where "Docs")) 2) (makedir (tackon where "Docs") (infos)) )    
  848.        (if (exists "Docs.info")
  849.         (copyfiles (source "Docs.info") (dest where) (optional "nofail") ) 
  850.        )
  851.       )
  852.      )
  853.  
  854.    (if (IN docs 2)  (copyfiles (source "Docs/ReadMe.mui") (dest (tackon where "Docs")) (infos) (optional "nofail") ) )
  855.    (if (IN docs 3)  (copyfiles (source "Docs/ReadMe.TearOff") (dest (tackon where "Docs")) (infos) (optional "nofail") ) )
  856.    (if (IN docs 4) (copyfiles (source "Docs/VFlash.readme") (dest (tackon where "Docs")) (infos) (optional "nofail") ) )
  857.    (if (IN docs 5) (copyfiles (source "Docs/VFlash_ppc.readme") (dest (tackon where "Docs")) (infos) (optional "nofail") ) )
  858.  
  859.  )
  860. )
  861.  
  862. ;********************************************************************
  863. ; Copy over TOOLS if wanted
  864. ;********************************************************************
  865. (if (> (exists "Tools") 0)
  866.  (
  867.   (set tools (askoptions (choices " ClearCacheDir" " Uninstall")
  868.                    (prompt (cat #whattools (tackon where "Tools\n"))) 
  869.                          (help   (cat #whattools (tackon where "Tools\n")))
  870.                      (default 1)
  871.              )
  872.   )
  873.  
  874.   (if (<> tools 0)
  875.    (
  876.      (if (< (exists (tackon where "Tools")) 2) (makedir (tackon where "Tools") (infos)) )    
  877.      (set toolsdir (tackon where "Tools"))   
  878.  
  879.      (if (IN tools 0) (copyfiles (source "Tools/ClearCacheDir") (dest toolsdir) (infos) (optional "nofail") ) )
  880.      (if (IN tools 1) (copyfiles (source "Tools/Uninstall") (dest toolsdir) (infos) (optional "nofail") ) )
  881.    
  882.    )
  883.   )
  884.  
  885.  )
  886. )
  887.  
  888. ;********************************************************************
  889. ; Copy over #?.mpc|#?.mcc (Need to be in mui:libs/mui)
  890. ;********************************************************************
  891. (if (> #cpu 1) (set guesscpu 1) (set guesscpu 0)) 
  892.  
  893. ;Check for MUI stuff in 'Libs' or 'MUI/Libs'
  894.  (if (exists "Libs/MUI") (set mui_localdir "Libs/MUI"))
  895.  (if (exists "MUI") (set mui_localdir "MUI"))
  896.  
  897. (if (<> (getassign "mui") "")
  898. (
  899.   (if (> (exists "mui:libs/mui") 0) 
  900.    (
  901.  
  902.     (if (> (exists (tackon mui_localdir "Textinput.mcc.020")) 0)
  903.       (set whatver (askchoice (choices  "68000" "68020")
  904.                       (prompt #cpuver)
  905.                   (help   #cpuver)
  906.                       (default guesscpu)
  907.                )
  908.       )
  909.     )
  910.  
  911.     (working #updatingmuic)
  912.     (foreach mui_localdir "#?.mcp"
  913.       (if (AND (= whatver 1) (exists (cat (tackon mui_localdir @each-name) ".020") ) )
  914.         (copylib (source (cat (tackon mui_localdir @each-name) ".020")) (dest "mui:libs/mui") (newname @each-name) (optional "nofail") ) 
  915.         (copylib (source (tackon mui_localdir @each-name)) (dest "mui:libs/mui") (optional "nofail") ) 
  916.       )
  917.     )
  918.  
  919.     (foreach mui_localdir "#?.mcc"
  920.        (if (AND (= whatver 1) (exists (cat (tackon mui_localdir @each-name) ".020") ) )
  921.         (copylib (source (cat (tackon mui_localdir @each-name) ".020")) (dest "mui:libs/mui") (newname @each-name) (optional "nofail") ) 
  922.         (copylib (source (tackon mui_localdir @each-name)) (dest "mui:libs/mui") (optional "nofail") ) 
  923.        )  
  924.     )
  925.    )
  926.  
  927.    (message (cat #newermui muiver #nompc)) 
  928.   )
  929. )
  930. )
  931.  
  932. ;********************************************************************
  933. ; Copy update Lib if wanted 
  934. ;********************************************************************
  935. (set deflibs 15)
  936. (if (> (exists "libs") 0)
  937.  (
  938.   (set deflibs 0)
  939.   (if (> (exists (tackon "libs" "vapor_update.library")) 0)       (set deflibs (+ deflibs 1)))
  940.   (if (> (exists (tackon "libs" "vapor_toolkit.library")) 0)      (set deflibs (+ deflibs 2)))
  941.   (if (> (exists (tackon "libs" "vapor_registration.library")) 0) (set deflibs (+ deflibs 4)))
  942.   (if (> (exists (tackon "libs" "CManager.library")) 0)           (set deflibs (+ deflibs 8)))
  943.  
  944.   (set libPick (askoptions (choices #lib1 #lib2 #lib3 #libC)
  945.               (prompt #updatedlibs)
  946.                       (help   (cat #libhelp1 #libhelp2 #libhelp3 #libhelpC))
  947.                     (default deflibs)
  948.            )
  949.   )
  950.  
  951.   (if (> libPick 0)
  952.    (
  953.     (set wherelibs (askdir (prompt #wherelibs)
  954.                   (help   #wherelibs)
  955.                        (default "LIBS:")
  956.                    )  
  957.     )
  958.     
  959.     (if (IN libPick 0)
  960.      (if (> (exists (tackon "libs" "vapor_update.library")) 0)
  961.       (copylib (source (tackon "libs" "vapor_update.library")) (dest wherelibs) (optional "nofail"))  
  962.      )
  963.     )
  964.  
  965.     (if (IN libPick 1)
  966.      (if (> (exists (tackon "libs" "vapor_toolkit.library")) 0)
  967.       (copylib (source (tackon "libs" "vapor_toolkit.library")) (dest wherelibs) (optional "nofail"))  
  968.      )
  969.     )
  970.  
  971.     (if (IN libPick 2)
  972.      (if (> (exists (tackon "libs" "vapor_registration.library")) 0)
  973.       (copylib (source (tackon "libs" "vapor_registration.library")) (dest wherelibs) (optional "nofail"))  
  974.      )
  975.     )
  976.  
  977.     (if (IN libPick 3)
  978.      (if (> (exists (tackon "libs" "CManager.library")) 0)
  979.       (copylib (source (tackon "libs" "CManager.library")) (dest wherelibs) (optional "nofail"))  
  980.      )
  981.     )
  982.  
  983.    ;(working #flushing) (run "avail flush > NIL:") (run "avail flush > NIL:") (run "avail flush > NIL:")
  984.  
  985.    ; Run David's flushlib if there - 0=ok , 20=FlushFail
  986.     (if (exists "flushlib")
  987.      (run "flushlib QUIET vapor_#?.library CManager.#?")
  988.     )
  989.    
  990.  
  991.    )
  992.  
  993.   )
  994.  )
  995. )
  996.  
  997. ;********************************************************************
  998. ; Check version of libs resident VS in libs: then note reboot
  999. ;********************************************************************
  1000. (if (> (exists "libs") 0)
  1001.  (
  1002.   (set lib_localdir "Libs:")
  1003.  
  1004.   (procedure checkversion
  1005.    (set vernum1 (getversion (tackon lib_localdir ver_checkfile)))
  1006.    (set ver1 (/ vernum1 65536))  (set rev1 (- vernum1 (* ver1 65536) ) )
  1007.    (set ver_result (cat ver1 "." rev1))
  1008.   )
  1009.   (procedure checkversionR
  1010.    (set vernum1 (getversion (tackon lib_localdir ver_checkfile) (resident)))
  1011.    (set ver1 (/ vernum1 65536))  (set rev1 (- vernum1 (* ver1 65536) ) )
  1012.    (set ver_result (cat ver1 "." rev1))
  1013.   )
  1014.  
  1015.   (set ver_checkfile "vapor_toolkit.library") (checkversion) (set toolkit_ver ver_result)
  1016.   (set ver_checkfile "vapor_update.library") (checkversion) (set update_ver ver_result)
  1017.   (set ver_checkfile "vapor_registration.library") (checkversion) (set reg_ver ver_result)
  1018.   (set ver_checkfile "CManager.library") (checkversion) (set cman_ver ver_result)
  1019.  
  1020.   (if (= toolkit_ver "0.0") (set toolkit_ver "None"))
  1021.   (if (= update_ver "0.0") (set update_ver "None"))
  1022.   (if (= reg_ver "0.0") (set reg_ver "None"))
  1023.   (if (= cman_ver "0.0") (set cman_ver "None"))
  1024.  
  1025.   (set lib_localdir "")
  1026.   (set ver_checkfile "vapor_toolkit.library") (checkversionR) (set toolkit_verR ver_result)
  1027.   (set ver_checkfile "vapor_update.library") (checkversionR) (set update_verR ver_result)
  1028.   (set ver_checkfile "vapor_registration.library") (checkversionR) (set reg_verR ver_result)
  1029.   (set ver_checkfile "CManager.library") (checkversionR) (set cman_verR ver_result)
  1030.  
  1031.   (if (= toolkit_verR "0.0") (set toolkit_verR "None"))
  1032.   (if (= update_verR "0.0") (set update_verR "None"))
  1033.   (if (= reg_verR "0.0") (set reg_verR "None"))
  1034.   (if (= cman_verR "0.0") (set cman_verR "None"))
  1035.  
  1036.  
  1037.   (set #verchecklib (cat "Vapor Library Version Check\n------------------------------------\n"
  1038.                          "vapor_toolkit.library\nIn 'LIBS:' " toolkit_ver " (In memory: " toolkit_verR ")" 
  1039.                          "\n\nvapor_update.library\nIn 'LIBS:' " update_ver " (In memory: " update_verR ")" 
  1040.                          "\n\nvapor_registration.library\nIn 'LIBS:' " reg_ver " (In memory: " reg_verR ")"
  1041.                          "\n\nCManager.library\nIn 'LIBS:' " cman_ver " (In memory: " cman_verR ")"
  1042.                     ) 
  1043.   )
  1044.   
  1045.   (set libdiff 0)
  1046.   (if (<> toolkit_ver toolkit_verR) (set libdiff 1)) 
  1047.   (if (<> update_ver update_verR)   (set libdiff 1))
  1048.   (if (<> reg_ver reg_verR)         (set libdiff 1)) 
  1049.   (if (<> cman_ver cman_verR)       (set libdiff 1))
  1050.  
  1051.   (if (= libdiff 1)
  1052.    (
  1053.     (message #verchecklib)
  1054.     (message (cat #libdiff #rebootnote))
  1055.    )
  1056.   )
  1057.  
  1058.  )
  1059. )
  1060.  
  1061. ;********************************************************************
  1062. ; Double check that env:Vapor/CManager_path is ok
  1063. ;********************************************************************
  1064. (procedure askfor_CManager_dir
  1065.   (set where_cman  (askdir (prompt #whereCMan)
  1066.                 (help   #whereCMan)
  1067.                         (default where)
  1068.                    )  
  1069.   )
  1070.  
  1071.   (delete "env:Vapor/CManager_path")
  1072.   (textfile (dest "env:Vapor/CManager_path") (append (tackon where_cman "CManager")))
  1073.   (copyfiles (source "env:Vapor/CManager_path") (dest "envarc:vapor") (optional "nofail") )  
  1074. )
  1075.  
  1076. (procedure check_CManager_dir
  1077.  (set badcmdir 0)
  1078.  (set lastdir1 "")
  1079.  
  1080.  (if (> (exists "env:Vapor/CManager_path") 0) 
  1081.   (set lastdir1 (getenv "Vapor/CManager_path"))
  1082.  )
  1083.  
  1084.  (set lastdirlen (strlen lastdir1))
  1085.  
  1086.  (if (< lastdir1 "") (set badcmdir 1))
  1087.  (if (< lastdirlen 9) (set badcmdir 1))
  1088.  (if (<> (exists (pathonly lastdir1) (noreq) ) 2) (set badcmdir 1))
  1089.  (if (<> (fileonly lastdir1) "CManager")  (set badcmdir 1))
  1090. )
  1091.  
  1092. (check_CManager_dir)
  1093.  
  1094. (while (= badcmdir 1) 
  1095.   (
  1096.      (message (cat #badcm1 "\"" lastdir1 "\"" #badcm2))
  1097.      (askfor_CManager_dir) (check_CManager_dir) 
  1098.   )
  1099. )
  1100.  
  1101. ;********************************************************************
  1102. ; Check for Cmanager-dir+Default.data
  1103. ;********************************************************************
  1104. ;(set #cmanager5 "NOTE: Voyager uses CManager for its bookmark section. CManager stores its database file 'Default.data' in the CManager's ENV path. The installer did not find 'Default.data' in the CManager ENV path.\n\nIf you 'test' installed the CManager package to RAM:/RAD: then CManager will try to save the Voyager bookmark file there, thus not being around after a reboot/powerdown.")
  1105. ;(set #cmanager6 " The installer will try to correct this, if this does not work you should (re)install the CManager package and place it elsewhere. Currenty it looks at:")
  1106.  
  1107. ;(if (> (exists "env:Vapor/CManager_path") 0)  (set lastdir1 (getenv "Vapor/CManager_path"))  )
  1108.  
  1109. ;(if (exists (tackon lastdir1 "Default.data"))  
  1110. ; (set DefaultData 1)
  1111. ; (message (cat #cmanager5 #cmanager6 "\n\"" (tackon lastdir1 "Default.data") "\"" ) )
  1112. ;)
  1113.  
  1114. ;(askfor_CManager_dir)
  1115.  
  1116. ;********************************************************************
  1117. ; BackUp bookmarks if there
  1118. ;********************************************************************
  1119. (if (> (exists "env:Vapor/CManager_path") 0) 
  1120.  (
  1121.   (set lastdir1 (getenv "Vapor/CManager_path"))
  1122.  
  1123.   (if (<> lastdir1 "CManager")
  1124.    (
  1125.     (set lastdirlen (strlen lastdir1))
  1126.     (set tricklen (+ 1 (strlen (fileonly lastdir1))))
  1127.     (set lastdir1 (substr lastdir1 0 (- lastdirlen tricklen) ) )
  1128.     (if (= 0 (exists lastdir1 (noreq))) (set lastdir1 (cat lastdir1 ":"))) 
  1129.    )
  1130.   )
  1131.  )
  1132.  
  1133.  (set lastdir1 where)
  1134. )
  1135.  
  1136. (if (> (exists (tackon lastdir1 "Default.data")) 0)
  1137.  (copyfiles (source (tackon lastdir1 "Default.data")) (dest where) (optional "nofail") (newname (cat (getsum (tackon lastdir1 "Default.data")) "_Default.data")) )
  1138. )
  1139.  
  1140.  
  1141. ;********************************************************************
  1142. ; Check for OLD CManager.key
  1143. ;********************************************************************
  1144. (set #cmanagerkey "\nNOTE\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\nVoyager uses CManager for its bookmark section. The installer has found your 'CManager.key' _could_ be a older key. If you use registered version of CManager, with the latest Cmanager classes/libs, and have a older Cmanager.key then this will cause CManager to not work correctly and thus Voyager.\n\nYou will need to get an updated CManager.key.")
  1145.  
  1146. (set CmanagerKeyDir "")
  1147. (if (exists (tackon lastdir1 "CManager.key")) (set CmanagerKeyDir lastdir1) )
  1148. (if (exists (tackon "s:" "CManager.key")) (set CmanagerKeyDir "s:") )
  1149.  
  1150. (if (<> CmanagerKeyDir "")
  1151.  (
  1152.   (set cmkey (getsize (cat CmanagerKeyDir "CManager.key")))
  1153.   (if (< cmkey 500)
  1154.    (message (cat #cmanagerkey "\n(" (tackon CmanagerKeyDir "CManager.key") ")" ) )
  1155.   )
  1156.  )
  1157.  
  1158. ;********************************************************************
  1159. ; Check for NList for CManager
  1160. ;********************************************************************
  1161. (if (exists (tackon "mui:libs/mui" "NListview.mcc")) 
  1162.  (set NListfound 1)
  1163.  (message (cat #neednlist1 (tackon "MUI:Libs/mui" "NListview.mcc") "\n(" (tackon (expandpath "mui:libs/mui") "NListview.mcc") ")" #neednlist2) ) 
  1164. )
  1165.  
  1166. ;********************************************************************
  1167. ; Check for Popph 
  1168. ;********************************************************************
  1169. (if (exists (tackon "mui:libs/mui" "popplaceholder.mcc")) 
  1170.  (set Popph 1)
  1171.  (message (cat #needpopph1 (tackon "MUI:Libs/mui" "popplaceholder.mcc") "\n(" (tackon (expandpath "mui:libs/mui") "popplaceholder.mcc") ")" #needpopph2) ) 
  1172. )
  1173.  
  1174. ;********************************************************************
  1175. ; Reg stuff Register-Voyager
  1176. ;********************************************************************
  1177. (procedure checkforkey
  1178.  (set foundkey 0) 
  1179.  (set kc "Voyager.key")
  1180.  
  1181.  (if (exists kc (noreq)) (set foundkey 1) )
  1182.  (if (exists (tackon where kc) (noreq)) (set foundkey 1) )
  1183.  (if (exists (tackon "s:" kc) (noreq)) (set foundkey 1) )
  1184.  (if (exists (tackon "l:" kc) (noreq)) (set foundkey 1) )
  1185.  (if (exists (tackon "libs:" kc) (noreq)) (set foundkey 1) )
  1186.  (if (exists (tackon "keypath:" kc) (noreq)) (set foundkey 1) )
  1187.  (if (exists (tackon "keyfiles:" kc) (noreq)) (set foundkey 1) )
  1188.  
  1189.  (if (= foundkey 0)
  1190.   (set wantkey (askchoice  (choices #insregstuffno #insregstuff)
  1191.                        (prompt #installerreg)
  1192.                            (help #installerreg)
  1193.                        (default 1)
  1194.                )
  1195.   )
  1196.  
  1197.   (set wantkey 0)
  1198.  )
  1199. )
  1200.  
  1201.  
  1202. (if (exists "Register-Voyager") 
  1203.  (checkforkey)
  1204. )
  1205.  
  1206.  
  1207.  
  1208. (if (AND (exists "Register-Voyager") (= wantkey 1))
  1209.  (
  1210.   (if (< (exists (tackon where "Register-Voyager")) 2) (makedir (tackon where "Register-Voyager") (infos)) )    
  1211.   (if (exists "Register-Voyager.info")
  1212.     (copyfiles (source "Register-Voyager.info") (dest where) (optional "nofail") ) 
  1213.   )
  1214.   (set whereR (tackon where "Register-Voyager"))
  1215.  
  1216.  
  1217.   (set whatreg  (askchoice (choices "English"  "Deutsch" "Francais" )
  1218.                            (prompt "What Registration Files (Language) would you like to install?")
  1219.                        (help   "What Registration Files (Language) would you like to install?")
  1220.                         (default 0)
  1221.                 )  
  1222.   )
  1223.  
  1224.   (if (= whatreg 0) ((set basereg "English")  (set baseregTT "English") ) )
  1225.   (if (= whatreg 1) ((set basereg "Deutsch")  (set baseregTT "Deutsch") ) )
  1226.   (if (= whatreg 2) ((set basereg "Francais") (set baseregTT "French")  ) )
  1227.  
  1228.   (if (exists "Register-Voyager/RegistrationUtility") 
  1229.     (copyfiles (source "Register-Voyager/RegistrationUtility")
  1230.                (dest whereR)
  1231.                (infos)
  1232.     )
  1233.   )
  1234.  
  1235.   ;(if (exists (tackon "Register-Voyager" (cat "Regtool-" basereg ".info")) )
  1236.   ;  (copyfiles (source (tackon "Register-Voyager" (cat "Regtool-" basereg ".info")) )
  1237.   ;             (dest whereR) 
  1238.   ;             (newname "RegistrationUtility.info")
  1239.   ;  )
  1240.   ;)
  1241.  
  1242.   (if (exists (tackon "Register-Voyager" (cat "Reg_" basereg ".guide")) ) 
  1243.     (copyfiles (source (tackon "Register-Voyager" (cat "Reg_" basereg ".guide")))
  1244.                (dest whereR) 
  1245.                (infos)
  1246.     )
  1247.   )
  1248.  
  1249.   (if (exists (tackon "Register-Voyager" (cat "Reg_" basereg ".doc")) )
  1250.     (copyfiles (source (tackon "Register-Voyager" (cat "Reg_" basereg ".doc")))
  1251.                (dest whereR) 
  1252.                (infos)
  1253.     )
  1254.   )
  1255.  
  1256.  
  1257.  )
  1258. )
  1259.  
  1260. ;********************************************************************
  1261. ; End Bye 
  1262. ;********************************************************************
  1263. (if (> (exists ("c:multiview")) 0) (set #mpath "c:") )
  1264. (if (> (exists ("sys:Utilities/multiview")) 0) (set #mpath "sys:Utilities") )
  1265. (run (cat "run " #mpath "/multiview V.readme") )
  1266.  
  1267. (exit #byebye)
  1268.